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INTRODUCTION 


This is the final report for NASA-Langley Grant # NSG. 1531. 
This report is divided into four parts : 

Part 1 - Mechanical Property Degradation and Chemical Interactions 
in a Borsic/Titanium Composite. 

Part 2 - Interfacial Coatings for SiC/Ti Composites 

Part 3 - Solutions for, Diffusion in Single-, Two-, and Three- 
Phase Binary Alloy Systems. 

Part 4 - Moisture Effects on Graphite/Polyimide Composites. 

The first two parts, deal with the development of titanium 
matrix composites for elevated temperature applications. Part 3 
represents progress toward the ultimate goal of treating inter- 
actions in multiphase multicomponent systems. Part 4 represents 
the progress in support of NASA's CASTS program. 

The research in this grant resulted in several publications. 
These are listed in the References Section. 
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PART 1 - MECHANICAL PROPERTY DEGRADATION AND CHEMICAL 
INTERACTIONS IN A BORSIC/TITANIUM COMPOSITE 

OBJECTIVE 


Titanium- alloy matrix composites have the potential for high 
specific strength and stiffness in high temperature applications. 
These fiber-reinforced materials have unique properties which make 
them attractive for such applications as advanced engine compon- 
ents and a variety of aerospace structural components. However, 
the use of titanium composites has been limited because of poor 
as-fabricated properties and/or degradation of mechanical pro- 
perties in high-temperature environments because of fiber/matrix 
interface interactions. The objective of this study is to 
identify the mechanisms of mechanical property degradation in a 
Borsic (boron coated with silicon carbide) fiber reinforced Ti- 
3A1-2.5V composite exposed to elevated temperatures. 

APPROACH 

Samples containing 0.45 volume fraction of fibers were 
exposed, in vacuum, to temperatures from 700 K to 1255 K for times 
up to 240 hours. Room temperature tensile properties of uni- 
directional material were determined in both the longitudinal and 
transverse directions, before and after high- temperature exposure. 
Electron microprobe analysis, scanning electron microscopy, and 
X-ray diffraction were used to determine the compounds formed 
and the extent of interaction between the boron, Sic coating, and 
matrix materials. The results of this study are summarized below, 
and the details are presented in reference 1. 
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RESULTS AMD DISCUSSION 


High temperature exposure had no effect on the longitudinal 

modulus of the composite whereas the transverse modulus for the 

thermally exposed, specimens was about 20 percent greater than that 

for the as-fabricated specimens. The strength of the composite did 

not depend to any great extent on the exposure time for temperatures 

of 922 K or less, but was degraded significantly by the longer 

exposure times at. temperatures of 1033 K and greater. For all expos- 

ure times, the strength after exposures at 811 K and 922 K was greater 

( 

than that after 700 K exposures. No quantitative correlation between 
strength and reaction- zone thickness was found. 

Electron microprobe. X-ray diffraction, and reaction-zone thick- 
ness data suggest a two-stage reaction process. The first stage 
consisted of the simultaneous interdiffusion of the Si, C, and Ti 
resulting in the depletion of the Sic coating and formation of 
titanium silicides (Ti^Si^, TiSi, TiSi 2 ) . The second stage resulted 
in significant titanium boride (.TiB, TiB 2 ,' Ti^B^ formation as well 
as a higher rate of formation of TiSi 2 . The strength of the compos- 
ite was degraded before the formation of any identifiable boride 
compounds . The aluminum in the matrix did not take part in the 
reactions and was rejected from the reaction region, whereas the 
vanadium remained throughout the reaction zone. 

PUBLICATIONS AND TALKS 


The research on this study resulted in the following publication: 
Mechanical Property Degradation and Chemical Interactions in a Borsic/ 
Titanium Composite, Proceedings of the 24th National SAMPE Symposium 
and Exhibition,. San Eransisco, CA. , 1979. 
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PART 2 - INTERRACIAL COATINGS FOR SiC/Ti COMPOSITES 

OBJECTIVE 


The concept of interfacial coatings, to provide reduced 
chemical interaction between the Sic fiber and titanium matrix, 
is the subject of this study. The objectives are: (1) to 

investigage the effectiveness of interfacial coatings, in reducing 
the reactivity between fiber and matrix, (2) to identify the' 
intermetallic compounds responsible for the degradation of the - 
as-fabricated and heat-treated composite mechanical properties, 

(3) to determine any modification of the reaction zone compounds 
in the composites with interfacial coatings compared to the 
uncoated titanium alloys, (4) to provide a mechanical and chemical 
characterization of the Sic fiber for a better understanding of 
its role in the degradation of the composite mechanical properties . 

APPROACH 

The interfacial coatings selected for examination were 
aluminum, molybdenum and vanadium. These coatings were chosen 
because they were constituents of the alpha-beta alloy, Ti (6A&-4V) , 
and certain beta alloys of titanium, which are known to have 
reduced reactivity with SiC compared to unalloyed titanium. The 
interfacial coatings were radio frequency (RF) sputtered onto 
Ti (A55) sheets and diffusion bonded (by DWA, Composite Specialties 
in Chatsworth, CA) into unidirectional. Sic reinforced composite 
panels. Additional panels of SiC reinforced Ti(6AJl-4V), Ti(3A£- 
2.5V) and Ti(A55), with no interfacial coatings, were fabricated 
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(by TRW Incorported in Cleveland, OH) to provide a comparative 
evaluation of the mechanical properties, reaction compounds and 
reaction zone thicknesses with the coated composite systems. 

The results of this study form the basis of Mr. Larry House's 
M.S. Thesis (ref. 2) . The author of this report, Dr. Unnam, 
worked closely with Mr. House on this study. 

RESULTS AMD DISCUSSION 

An interest in Sic reinforced titanium composites has been 
generated by the strength loss at elevated temperatures (near 
1000°F) of boron and Borsic fibers, and a need for stronger 
matrices with higher temperature capabilities (up to 1400°F) 
than can be provided by aluminum and resin matrix composites. 
Also, the reaction kinetics are reported to be slower for the 
SiC/Ti system than for B/Ti, thereby reducing the deleterious 
effects associated with fiber-matrix interaction. However, the 
poor as-fabricated mechanical properties of the SiC/Ti composites 
have precluded extensive utilization of this composite system. 

The best results were achieved with SiC/Ti (6A£-4V) system which 
yielded only 75% of the rule-of -mixture fracture strength. 

The degradation of the tensile strength is largely due to 
the formation of a brittle phase boundary at the fiber/matrix 
interface. The strength loss is attributed to the stress 
intensification caused by defects or cracks that develop because 
of the low strengths and strain-to-f ailure of the reaction 
compounds . 
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Two, crucial, technical issues determining the utility of 
the SiC-Ti composites remain to be resolved. These are: (1) 

whether the fiber-matrix reaction kinetics during fabrication can 
be sufficiently reduced to prevent forming a reaction zone thick- 
ness greater than the critical thickness, and (2) if so, whether 
the composite degradation at the expected service temperature 
will be small. 

Although the chemical compatibility between SiC and Ti has 
not proven satisfactory, several approaches to reduce the fiber- 
matrix reaction have been suggested in the literature. Among 
these were: (1) optimization of the consolidation process, 

(2) development of a low-reactivity matrix, (3) development of 
protective interfacial coatings. The first two approaches have 
been given considerable attention with only limited success. The 
development of protective interfacial coatings is the approach 
taken in this study. 

Reaction Zone Thicknesses: 

A comparison of reaction zone thicknesses for each composite 
system, after the 1600 and 1800°F exposures, is shown in figure 1. 
The reaction zone thicknesses of the SiC-Ti (A55)/A&, SiC-Ti (3A&- 
2.5V) and SiC-Ti (6AJ1-4V) , after the 1600°F-25 hour exposure, were 
comparable. However, the composites with molybdenum and vanadium 
interfacial coatings have reaction thicknesses, after the 1600°F 
exposure, comparable to the thicknesses in the 1800°F exposed SiC- 
Ti {3AA-2 . 5V) and SiC-Ti (6AS.-4V) specimens. Indeed, the composites 
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COMPOSITE SYSTEM 



REACTION ZONE THICKNESS, yin 

Figure 1. A comparison of the reaction zone thicknesses for the various 

composite systems after the 25 hour exposure at 1600 and 1800°F. 



with molybdenum and vanadium coatings appear to have reacted, at 
1600°F, more extensively than the composites with the uncoated Ti 
(A55) matrix. After the 1800°F exposure, all the DWA composites, 
with and without interfacial coatings, had similar reaction zone 
thicknesses. This should be expected because the homogenization 
of the coatings throughout the matrix leaves an insufficient 
amount of the coating to affect the fiber -matrix reaction. The 
larger reaction zone thickness for the 1800°F exposed (DWA) SiC- 
Ti (A55) specimen, compared to the (TRW) SiC-(A55) composite, was 
due to larger TiC precipitates in the outer boundary of the 
reaction zone in the DWA specimen. 

The reaction zone thickness data for the 1600°F exposure 
suggest that a binary Ti-A£ alloy matrix may be less reactive 
than the Ti (3Ai.-2.5V) and Ti (6Ai,-4V) matrices. This conclusion 
is made in view of- the enhanced reactivity of the V coated com- 
posite, and the considerably reduced reactivity provided by the 
Ai. coating. 

Identification of Reaction Products : 

To identify the compounds formed in the fiber -matrix reaction 
zone, X-ray diffraction analyses of the as-fabricated and thermal- 
ly exposed DWA and TRW composites were performed. DWA composite 
samples were of SiC fiber reinforced Ti (A55) and also composites 
of Az, Mo and V coated Ti (A55) . The TRW composites were of SiC 
fiber reinforced Ti (A55) , Ti (3A5.-2.5V) and Ti (6A&-4V) . The 
experimental apparatus consisted of a Siemens diffractometer with 
a high intensity, fine focus, copper tube. The specimens were 
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rotated about the <f> axis to reduce fluctuations in intensity 
which may result, due to the presence of large grains and texture 
within the sample.. The data were collected using a diffracted 
beam graphite monochromator. The monochromator improved the 
peak-to-background ratios by minimizing contributions to the 
background from continuous radiation as well as fluorescence from 
the Ti-base substrate. Survey scans of 2d were made at 1° per 
minute and slow scans were made at 1/4° per minute. 

The samples were ground using 600 grit paper to uniformly 
expose the filaments. They were then fine-polished on a lapping 
wheel using 1 micron and 0 . 3 micron alumina powder . In order to 
get a meaningful comparison in a semiquantitative analysis, the 
samples were ground to expose about 33% area fraction of filament 
in all cases . This procedure maximized the effective volume of 
the reaction zone so that small amounts of transformation about 
the interface could be observed with X-ray diffraction. 

DWA composite samples in the as -received condition as well 
as those exposed to 1600°F and 1800°F for 25 hours each were 
examined to determine the various phases at each temperature . 

The results are presented in Tables 1 through 12. The 2e values 
denoted by an asterisk represent unidentified reflections which 
were of low intensity. The intensity for each reflection was 
determined by integrating the area under the. corresponding peak, 
using a small grid technique. 

The as-fabricated composite gave diffraction lines from 
a-Ti, B-SiC and TiC . Although a few weak reflections appeared 
due to Ti^Si^, the presence of Ti^Si^ phase, in general, in the 
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Table 1 . - Experimental d-spacings and intensities for phases identified 
in as-fabricated SiC-Ti(A55) 


20 

d 

Intensity 
(arbitrary units) 

ct-SiC 

g-SiC 

. a-Ti 

' TiC 

Ti Si 0 
5 3 


2.6330 

300 

(???) 


■ 




2.5190 

9,000 


(111) 


(111) 

(002) 


2.3474 

615 



flilll 



40,11 

2.2461 

830 



(011) 



4i.o6 

2.1963 

75 





(211) 

41.46 

2.1761 

75 




(200) 


41.96 

2.1513 

50 


(200) 



(300) 

52.86 

1.7305 

325 



(012) 



*59-01 

1.5639 

75 






60.01 

1.5403 

970 


(220) 




60.76 

1.5230 

124 




(220) 


62.86 

1.4771 

164 



(no) 



70.46 

1.3352 

600 



(103) 



71.81 

1.3134 

856 


(311) 




72.61 

1. 3009 

81 




(113) 


75.46 

1.2587 

338 


(222) 


(222) 


75-98 

1.2514 

313 



(112) 



77.21 

1.2344 

100 



(201) 



82.16 

1.1722 

36 



(oo4) 



86.56 

1.1235 

23 



(202) 



92.46 

1.0666 

75 



(014) 



100 . 06 

1.0050 

20 




(331) 


'ioo.81 

.99958 

162 


(331) 




102.21 

.98966 

150 



(203) 



*104.11 

.97672 

88 






104.71 

.97276 

81 


(420) 




108.96 

•94635 

75 



(211) 



114.01 

.91836 

188 



(114) 



119.61 

. 89116 

198 


(422) 

(212) 



121.06 

. 88472 

119 




(224) 















Table 1 . - Continued 


20 

d 

Intensity 
(arbitrary units) 

a-SiC 

8 -SiC 

a-Ti 

TiC 

Ii 5 Si 3 

121. 86 

. 88126 

244 



(015) 



126.11 

. 864o4 

32 



(204) 



133.1*6 

. 83845 

725 


(333, 








511) 




138.96 

. 82243 

150 



213) 
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Table 2 . - Experimental d-spacings and intensities for phases identified 
in l600°F-25 hour exposed SiC-Ti(A55) 


20 

d 

Intensity 
(arbitrary units) 

a-SiC 

8 -SiC 

a-Ti 

TiC 

Ti e Si 0 
5 3 

34.06 

2.6300 

150 

(???) 





35-61 

2.5190 

8,500 


(111) 

(010) 

(111) 

(002) 

36.91 

2. 4331 

87 





(210) 

38.18 

2.3551 

650 



(002) 



4o.ll 

2.2461 

910 



(Oil) 



40.96 

2.2015 

164 



i 


(211) 

! 41.86 

2.1562 

145 


(200) 


(200) 

(300) 

I 42.66 

i 

! 2.1190 

32 





(112) 

52.81 

1. 7320 

350 



(012) 



j 

! 60.06 

1-5391 

660 


(220) 




60.66 

1.5253 

127 




(220) 


61. 4l 

1.5084 

75 





(222) 

| 62.86 

1. 4771 

262 



(no) 



! 70,26 

1.3386 

600 



(103) 



l 71.81 

1.3134 

574 


(311) 




72. 56 

1. 3017 

101 




lllly 


75.36 

1.2601 

191 


(222) 




75.86 

1.2531 

210 



(112) 



: 77.16 

1.2351 

117 



(201) 



! 86.62 

1.1229 

25 



(202) 



92.31 

1.0680 

71 



(014) 



!ioo.46 

1.0023 

68 




(331) 


101.42 

-99522 

50 


(331) 




102.01 

.99105 

252 



(203) 

J 


: 104. 32 

■97534 

86 


(420) 




106.00 

. 96445 

20 

(???) 



1 


108.81 

.94723 

75 



(211) 



113.56 

. 92072 

125 



(ll4) 



119.61 

. 89116 

172 


(422) 

(212) 



120.61 

. 88669 

108 




(224) 











Table 2 . - Continued 


20 

d 

Intensity 
(arbitrary units) 

a-SiC 

8 -SiC 

a-Ti 

TiC 

Ti^Si^ 

121. he 

. 88298 

175 



(015) 



*122.51 

.87850 

20 



> 



133.41 

. 83861 

318 


(333, 




138. 86 

. 82270 

100 


511) 

(213) 
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Table 3 . - Experimental d-spacings and intensities for phases identified 
in l800°F - 25 hour exposed SiC-Ti(A55) 


20 

d 

Intensity 
(arbitrary units) 

a-SiC 

B-SiC 

a-Ti 

TiC 

Ti^Si^ 

34.16 

2.6225 

160 

(???) 





35-61 

2.5190 

11,250 


(111) 

(010) 

(111) 

(002) 

36.91 

2.4331 

163 





(210) 

37-53 

2.3944 

79 





(102) 

38.41 

2.3415 

810 



(002) 



4o.ll 

2.2461 

1,557 



(Oil) 



40.93 

2.2030 

290 


' 



(211) 

41.93 

2.1527 

575 


(200) 


(200) 

(300) 

42.63 

2.1190 

215 





(112) 

53.03 

1.7253 

188 



(012) 



*59-21 

1.5591 

50 






60.21 

1.5356 

470 


(220) 




60.78 

1.5230 

302 




(220) 


61.41 

1.4656 

75 





(222) 

63.01 

1.4953 

250 



(110) 



65.56 

1.4227 

32 





(321) 

66.51 

1.4046 

100 





(410) 

(213) 

68.61 

l. 3666 

50 





(402) 

70.71 

1.3312 

275 



(103) 



71.83 

1.3131 

450 


(311) 




72.76 

1.2986 

150 




(113) 


' 75.46 

1.2587 

288 


(222) 


(222) 


76.26 

1.2475 

340 



(112) 



77-36 

I.2325 

127 



(201) 



82.36 

1.1698 

20 



(004) 



83.86 

1.1527 

20 





(502) 

86.81 

1.1209 

36 



(202) 



92.86 

1.0631 

52 



(014) 













Table 3 . - Continued 


20 

d 

Intensity 
(arbitrary units) 

a-Sic 

6-SiC 

a-Ti 

TiC 

Ti 5 Si 3 

100.22 

1.0039 

4o 




(331) 


100.66 

1.0007 

89 


(331) 




102.41 

.98827 

275 



(203) 



104.36 

•97507 

200 


(420) 




106.26 

.96281 

138 

(???) 





109.06 

.94576 

125 



(211) 



114.46 

•9l6o4 

112 



(114) 



119.86 

. 89003 

156 


(422) 

(212) 



121.06 

. 88472 

100 




(224) 


*122.41 

. 87893 

200 






133.36 

. 83876 

325 


(333, 

511) 




139.56 

. 82083 

110 



(213) 
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Table 4 . - Experimental d-spacings and intensities for phases identified 
in as-fabricated SiC-Ti(A55 )/Al > 


29 

a 

Intensity 
(arbitrary units) 

a-SIC 

B-SiC 

a-Ti 

TiC 

Ti 5 Si 3 

34.01 

2.6337 

250 

(???) 





35-61 

2.5190 

11,400 


(111) 

(010) 

(111) 

(002) 

38. 08 

2.3611 

860 






4o. 05 

2.2493 

2,200 



(Oil) 



40.82 

2.2087 

50 





(211) 

41.42 

2.1781 

100 




(200) 


41.86 

2.1562 

25 


(200) 



(300) 

52.81 

1.7320 

219 



(012) 



*59-21 

1-5591 

50 






60. 06 

1. 5391 

813 


(220) 




60.56 

1.5276 

253 




(220) 


62.81 

1.4872 

210 



(no) 



70.41 

1.3361 

550 



(103) 



71.76 

1. 3142 

958 


(311) 




72 ..31 

1.3055 

171 




(113) 


75-68, 

1.2556 

601 


(222) 


(222) 


76.26 

1.2475 

108 



1 

• 


77.16 

1.2351 

155 






86. 56 

1.1235 

4l 






92.41 

1.0671 

47 



(014) 



99-61 

1.0083 

20 




(331) 


101.06 

.99778 

270 


(331) 




102.01 

-99105 

310 



(203) 



104.48 

. 97427 

427 


(420) 




105.81 

. 96566 

71 

(???) 





108. 86 

.94694 

121 



(211) 



113.98 

. 91862 

143 



(114) 



119.66 

. 89093 

226 


(422) 

(212) 



120.61 

. 88669 

238 




(224) 













Table 4 


Continued 


20 

d 

Intensity 
(arbitrary units) 

ct-SiC 

8-SiC 

a-Ti 

TiC 

Tl 5 Sl 3 

121.81 

. 88l48 

246 



(015) 



133-47 

. 83842 

608 


(333, 

511) 




138.81 

. 82283 

156 



(213) 
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Table 5 . - Experimental d-spacings and intensities for phases 
identified in l600°F-25 'hour exposed SiC-Ti'(A55)/Al 


20 

d 



Intensity 
(arbitrary units) 

a-SiC 



6 -SiC 

a-Ti 

— 

TiC 

Ti 5 Si 3 

34.16 

2.6225 

150 

(???) 




■l 

35-58 

2.5210 

10 ,950 


(111) 

(010) 

(111) 


36.76 

2.4428 

172 





llllli 

38.14 

2.3575 

972 



(002) 



40.00 

2.2521 

3,435 



(on) 



40.88 

2.2056 

178 





(211) 

41.88 

2.1552 

216 


(200) 


(200) 

(300) 

42.56 

2.1223 

82 





(112) 

52.72 

1-7348 

470 



(012) 



*59-31 

1.5567 

70 






60. 06 

1.5391 

584 


(220) 




60.61 

1.5265 

187 


' 


(220) 


62.85 

1.4773 

277 



(110) 



70.26 

1.3386 

455 



(103) 



71.81 

1.3135 

545 


(311) 




72. 4i 

1. 3040 

120 




(113) 


75-46 

1.2587 

308 


(222) 




75-91 

1.2523 

310 



(112) 



77.21 

1.2345 

108 



(201) 



86.48 

1.1244 

71 



(202) 



92.21 

1.0689 

110 



(014) 



100.06 

1.0050 

25 




(331) 


101. 02 

.99807 

110 


(331) 




101.91 

-99175 

144 



(203) 



104.44 

. 97454 

250 


(420) 




106.06 

•96408 

94 

(???) 





108.86 

. 94694 

116 



(211) 



113.64 

. 92029 

209 



(il4) 



119.61 

. 89116 

152 


(422) 

(212) 
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Table 5 . - Continued 


20 

d 

Intensity 
(arbitrary units) 

a-SiC 

8 -SiC 

a-Ti 

TiC 

1 x 58 x 3 

120.68 

. 88638 

128 




(224) 


121.51 

. 88277 

13h 



(015) 



3.22.26 

• 87956 

50 






125.66 

.86578 

ho 



(204) 



133.38 

. 83870 

h22 


(333, 








511) 




136.51 

. 82925 

50 




(U5) 


138.71 

. 82311 

200 



(213) 
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Table 6 . - Experimental d-spacings and intensities for phases 
identified in l800°F-25 hour exposed SiC-Ti (A55)/A1 


20 

d 

Intensity 
(arbitrary units) 

a-SiC 

0-SiC 

a-Ti 

TiC 

Ti 5 Si 3 

33.92 

2.6481 

302 

(???) 




mm 

35-72 

2.5H5 

21,750 


(111) 

(010) 

(111) 


36.78 

2. 4415 

4l4 






37.58 

2.3913 

226 






38.48 

2.3374 

230 



(002) 



40.18 

2.2424 

1,800 



(Oil) 



40.92 

2.2035 

298 





(211) 

41.98 

2.1503 

512 


(200) 


(200) 

(300) 

42.68 

2.1166 

190 





(112) 

53.06 

1. 7244 

322 



(012) 



*58.72 

1.5710 

165 






60.12 


1,050 


.(220) 




60.72 


680 




(220) 


61.32 

1.5105 

120 





(222) 

*61.72 

1.5016 

124 






63.02 

1.4737 

622 



(no) 



65.72 

l. 4196 

24 





(321) 

66.52 

l. 4o44 

90 





(410) 

(213) 

68.68 

1.365 1 * 

44 





(402) 

70.82 

1.3293 

417 



(103) 



71. 8l 

1.3124 

1,425 


(311) 




'72.78 

1.2983 

120 




(113) 


73.22 

1. 2916 

145 





(500) 

(004) 

75.52 

1.2578 

670 


(222) 


(222) 


76.38 

1.2458 

245 



(112) 



77-42 

1.2317 

129 



(201) 













Table 6 . - Continued 



21 











Table 7 . - Experimental d-spacings and intensities for phases 
identified in as-fabricated SiC-Ti (A55 ) /Mo 


26 

d 

Intensity 

a-SiC 

8-SiC 

a-Ti 

TiC 

Ti Si 



(arbitrary units) 






34.06 

2.6300 

130 

( ??? ) 




■■ 

35-61 

2.5190 

12,480 


(111) 

(010) 

(111) 

■ 

36.86 

2.4364 

120 





IHM 

38.31 

2.3474 

2,210 



(002) 



*38.81 

2.3183 

150 






40.13 

2.2450 

3,750 



(Oil) 



40.96 

2.2015 

50 





(211) 

41.36 

2 . 1811 

25 




(200) 


41.86 

2.1562 

25 


(200) 



(300) 

52.86 

1.7305 

611 



(012) 



60.01 

1.5402 

295 


(220) 




60.56 

1.5276 

125 




(220) 


62 . 86 

1.4771 

182 



(110) 



70.48 

1.3349 

778 



(103) 



71.86 

1.3126 

454 


(311) 




72.46 

1.3032 

116 




(113) 


75-48 

1.2584 

177 


(222) 


(222) 


76.01 

1.2509 

471 



(112) 



77.28 

1.2335 

1U3 



(201) 



81.98 

1.1743 

113 



(004) 



86.56 

1.1235 

43 



(202) 



92.46 

1.0666 

75 



(014) 



100.16 

1.0043 

25 




(331) 


100.86 

•99922 

92 


(331) 




102 . 18 

.98986 

269 



(203) 



104.43 

.97460 

154 


(420) 




105.16 

.96984 

46 

(???) 





108.96 

.94634 

116 



(211) 



114.01 

.91836 

278 



(ll4) 



119.36 

. 89230 

132 


(422) 

(212) 
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Table 7 . - Continued 


20 

d 



Intensity 
(arbitrary units) 

a-SiC 

B-SiC 

a-Ti 

TiC 

Ti 5 Si 3 

120.41 

. 88758 

114 




(224) 


121.81 

. 88148 

488 



(015) 



133.46 

. 83845 

373 


(333, 

511) 




139-16 

. 82190 

189 



(213) 
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Table 8 . - Experimental d-spacings and intensities for phases 
identified in l600°F-25 hour exposed SiC-Ti(A55) /Mo 


26 

d 

Intensity 
(arbirtrary units) 

a-SiC 

0-SiC 

33-92 

2.6405 

400 

(???) 


35.61 

2.5190 

13»l40 


(111) 

36.76 

2 . 4428 

4l6 



38.41 

2.3415 

647 



4o.l6 

2.2435 

930 



40.91 

2.2040 

216 



41.91 

2.1537 

226 


(200) 

42.61 

2.1199 

53 



53.01 

1.7259 

225 



*59.49 

1.5529 

50 



60.13 

1.5374 

2,812 


(200) 

60.56 

1.5276 

750 



*62.01 

1.4953 

120 



62.96 

1.4750 

372 



70.76 

1.3303 

540 



71.91 

1.3118 

1,425 


(311) 

72.51 

1.3024 

376 



75.56 

1.2573 

562 


(222) 

76.11 

1.2495 

386 



77.36 

1.2325 

177 



82.11 

1.1727 

60 



86.81 

1.1209 

47 



90.12 

1.0882 

84 



*91.21 

1.0780 

110 



92.96 

1.0622 

88 



99.36 

1.0102 

50 



101.16 

•99707 

633 


(331) 

102.41 

.98827 

420 



104.51 

.97407 

672 


(420) 


a-Ti 

TiC 

Ti 5 Si 3 

(010) 

(111) 

(002) 



(210) 

(002) 



(Oil) 

(200) 

(211) 

(300) 



(112) 

(012) 

(220) 


(110) 



(103) 

(113) 



(222) 


(112) 



(201) 



(004) 



(202) 

(400) 


(014) 

(331) 


(203) 




24 











Table 8 . - Continued 


2G 

d 

Intens ity 
(arbitrary units) 

a-SiC 

e-sic 

a-Ti 

TiC 

T1 5 Si 3 

105.56 

.96726 

238 

(???) 


■ 



108.91 

.94664 

184 



1 



114.28 

.91696 

119 



Bug 



119.06 

. 89367 

100 


(422) 

(212) 



120.31 

. 88802 

582 




(224) 


121.41 

. 88319 

249 



(015) 



*122.26 

. 87956 

196 






133.51 

. 83829 

771 


(333, 








511) 




139 . 56 

. 82083 

194 


BOH 

(213) 
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Table 9 . - Experimental d-spacings and intensities for phases 
identified in l800°F-25' hour exposed SiC-Ti(A55)/Mo 


29 

.. 

d 

Intensity 
(arbitrary units) 

a-SiC 

8-SiC 

a-Ti 

TiC 

g 

34,16 

2.6225 

375 

(???) 




■■■ 

35.61 

2.5190 

11,430 


(ill) 

(010) 

(111) 

■SB 

36.81 

2.4395 

4l8 





■j^RB 

37-46 

2 . 3987 

167 





■Qfl 

38.41 

2.3415 

786 



(002) 



4o.l6 

2.2435 

1,605 



(on) 



40.93 

2.2030 

255 





(21D 

41.93 

2.1527 

432 


(200) 


(200) 

(300) 

42.61 

2.1199 

398 





(112) ‘ 

53.06 

1.7244 

226 



(012) 



60.16 

1.5368 

8l4 


(220) 




60.78 

1.5230 

528 




(220) 


61. 46 

1.5074 

161 





(222) 

63.01 

1.4739 

236 



(no) 



65.71 

1.4198 

106 






66.48 

1.4052 

200 













(213) 

68. 66 

1. 3658 

84 





(402) 

70.81 

1.3295 

350 



(103) 



71.91 

1.3118 

882 


(311) 




72.78 

1.2983 

326 




(113) 


73.21 

1.2917 

75 





(500) 








(004) 

75.63 

1.2562 

430 


(222) 


(222) 


76.46 

1.2447 

405 



(112) 



77.46 

1.2311 

214 



(201) 



78.46 

1.2179 

78 





(420) 

79-46 

1.2051 

70 





(331) 

83.86 

1.1527 

121 





(502) 

85.12 

1.1388 

30 





(214) 


26 










Table 9 . - Continued. 
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Table 10. - Experimental d-spacings and intensities for phases 
identified in as-fabricated SiC— Ti (A55 )/V 


20 

d 

Intensity 
(arbitrary units) 

a-SiC 

0-SiC 

a-Ti 

TiC 

Ti 5 Si 3 

34.06 

2.6300 

250 

(???) 


■ 



35.61 

2.5190 

10,530 


(111) 


(111) 

(002) 

38.11 

2.3593 

1,350 



Elll 



40.01 

2.2515 

1,521 



(Oil) 



4i.o6 

2.1963 

120 





(211) 

41.56 

2.1711 

120 




(200) 


42.02 

2.1483 

25 


(200) 



(300) 

52.76 

1.7835 

307 



(012) 



*59-31 

1.5567 

50 






60.01 

1.5403 

1,164 


(220) 




61.01 

1.5174 

316 




(220) 


62.81 

1.4782 

283 



(110) 



70.51 

1..3344 

770 



(103) 



71.76 

1.3142 

1,295 


(311) 




72.56 

1.3017 

122 




(113) 


75.46 

1.2587 

423 


(222) 


(222) 


76.16 

1.2489 

168 



(112) 



*76.91 

1.2385 

40 






77.56 

1.2298 

50 



(201) 



81.86 

1.1757 

102 



(004) 



90.06 

1. 0887 

50 




(400) 


*91.46 

1.0757 

50 






*93.56 

1.0570 

50 






99.91 

1. 0061 

20 




(331) 


100.86 

.99922 

160 


(331) 




102 . 01 

.99105 

131 



(203) 



*104.11 

.97672 

104 






104.71 

.97276 

106 


(420) 




105.91 

.96502 

75 

(???) 
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Table 10. - Continued 


29 

d 

Intensity 
(arbitrary units) 

a-SiC 

8-SiC 

a-Ti 



TiC 

Ti 5 Si 3 

109.06 

.94576 

20 






114.06 

.91810 

131 



61111 



119.11 

. 89343 

125 


(422) 

( 212 ) 



120.51 

. 88713 

389 




(224) 


121.91 

. 88104 

210 



( 015 ) 



133.41 

* 83861 

668 


(333, 

511) 





29 












Table 11. - Experimental d-spacings and intensities for 

phases identified in lS00°F~25 hour exposed SiC-Ti (A55 )/V 



30 ' 













Table 11 . - Continued 


20 

d 

Intensity 
(arbitrary units) 

a-SiC 

B-SiC 

a-Ti 

TiC 

Ti 5 S1 3 

106.26 

. 96281 

186 

(???) 





109 • 12 

.94541 

125 



(211) 



*109.86 

.94m 

125 






114.61 

. 91526 

109 



(114) 



119.16 

. 89321 

216 


(422) 

(212) 



120.16 

. 88869 

777 




(224) 


*122.31 

. 8T935 

524 






131.46 

. 84492 

120 



(300) 



133.51 

. 83829 

l»4ll 


(333, 

511) 




136.46 

. 82940 

142 




(115) 


140.51 

.81836 

176 



(213) 
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Table 12. - Experimental d-spacings and intensities for phases 
identified in l800°F-25 hour exposed SiC-Ti(A55 )/V 


29 

d 

Intensity . 
(arbitrary units) 

a-SiC 

|3-SiC 

a-Ti 

TiC 

T1 5 Si 3 

3^.02 

2.6330 

350 

(???) 





35-71 

2.5121 

11,250 


(111) 

(010) 

(111) 

(002) 

36-91 

2.4331 

320 





(210) 

37-58 

2.3913 

184 

1 




(102) 

38.51 

2.3357 

525 



(002) 



40.26 

2.2381 

1,473 



(Oil) 



40.98 

2.2004 

300 





(211) 

41.98 

2.1503 

350 

i 

(200) 


(200) 

(300) 

. 42.66 

2.1176 

318 





(112) 

53.16 

1.7214 

303 



(012) 



*54.36 

1.6862 

84 • 

1 





*59-31 

1.5567 

125 






! 60.13 

1.5374' 

625 


(220) 




60.78 

1. 5230 

552 




(220) 


61. 4l 

1.5084 

222 





(222) 

63.16 

1.4708 

380 



(110) 



65.71 

1.4198 

77 





(321) 

66.56 

1.4037 

423 



I 

1 


(410) 

(213) 

68.76 

1.3640 

75 1 





(402) 

71-06 

1.3238 

386 



(103) 


, 

71-91 

1.3118 

1,113 


(311) 




' 72.71 

1.2993 

335 




(113) 


73-50 

1.2873 

60 





(500) 

(oo4) 

75.56 

1.2573 

506 


(222) 


(222) 


76.51 

1.2440 

456 



(112) 



77.61 

1.2291 

155 



(201) 



78.56 

1..2166 

32 ' i 





(420) 


32 











Table 12. - Continued 


20 

d 

Intensity 
(arbitrary units) 

a-SiC 

8-SiC 

a-Ti 

TiC 

Ti-Si- 
5 3 

79-46 

1.2051 

45 



** 


(331) 

82.51 

1.1681 

6l 



(004) 



83.91 

1.1521 

90 





(502) 

85.11 

1.1389 

35 





(214) 

86. 06 

1.1288 

39 





(511) 

87.06 

1.1183 

110 



(202) 



88. 46 

1.1042 

81 





(304) 

*91.31 

1.0770 

52 






100.02 

1.0053 

60 




(331) 


100.71 

1.0003 

294 


(331) 




102.36 

.99862 

522 



(203) 



io4. 56 

.97375 

433 


(420) 




106.26 

.96281 

312 

(???) 





*108.22 

•95075 

55 






109.01 

. 94605 

39 



(211) 



*109.66 

. 94226 

50 






114.81 

. 91424 

157 



(114) 



119.96 

. 88958 

198 


(422) 

(212) 



120.56 

. 88691 

496 




(224) 


*122.51 

.87850 

552 






*123.16 

. 87580 

125 






125.56 

. 86617 

135 



(204) 



133. 4l 

. 83861 

1,008 


(333, 

511) 




136.81 

. 82839 

292 




(115) 


l4o.56 

. 81824 

188 



(213) 
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as-fabricated specimens is doubtful. The Ti^Si^ phase started 
appearing more clearly in all samples after an exposure of 1600°F 
for 25 hours. With further thermal exposure, the total intensity 
from Ti^Si^ was found to increase. A quantitative analysis of 
the phases found in DWA samples was not attempted at the present 
time . 

Some moderate line shifts were observed in the a-Ti 
diffraction patterns after the thermal exposure. This would be 
expected due to lattice expansion or contraction as C and/or Si 
goes into solution. Residual stresses in the composite, intro- 
duced during thermal exposure, may have also contributed to the 
a-Ti shifts . 

No lines from the interfacial coatings could be detected 
in the diffraction patterns of the coated composites . This was 
probably because the various coatings went into solution with 
the matrix during composite fabrication cycle. 

Composites of SiC reinforced Ti (A55) , Ti (3A5.-2.5V) and 
Ti (6A5.-4V) fabricated by TRW were found to be well bonded 
compared to those of DWA. These composites' were . thermally- 
exposed to 1200°F, 1600°F and 1S00°F for 25 hours each. The 
most -obvious difference in the TRW composites of Ti (A55) com- 
pared to DWA composites of Ti (A55) was that lines due -to TiSi 
and TiSi 2 were present in the TRW composites for 1600°F and 1800°F 
exposures, whereas, in the DWA composite, these lines were absent. 
In addition, reflections due to g-Ti were identified in the as- 
fabricated and thermally exposed composites of Ti (3A5.-2.5V) and 
Ti (6A5.-4V) . 
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Quantitative Study of Reaction Products : 

For the TRW composites, the study of reaction at the fiber- 
matrix interface is under study on a quantitative basis. One 
might expect that the interface reaction can be followed by 
studying the decrease in the integrated intensity of SiC reflec- 
tions. However, with an increase in the thermal exposure, SiC 
reflections were found to overlap with the reflections of 
reaction products. In order to follow the intensity variation 
of SiC reflections, it is essential to separate the SiC reflec- 
tions from other overlapping reflections . The Pearson VII 
function can be used in the separation of overlapping reflec- 
tions , and this is given by 


Y = 



1 + 


(X-X Q ) 2 

12 

ma 


-m 


where X q is the 2e value corresponding to the peak height Y q> 

"a" is related to peak half-width and m is the shape factor. 

For m = 1, the variation is Cauchy, and for m = », the varia- 
tion is Gaussian. 

A modified IBM nonlinear least squares program was obtained 
from Purdue University. This was originally written to separate 
two overlapping peaks . We have modified it so that it is now 
capable of separating 12 overlapping reflections from the Ka^~ 
10*2 doublet. The program has been used for investigating the 
Ti (A55) composite samples of TRW. A typical curve is shown in 
Fig. 2 where individual reflections are separated using the 
program. 
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The half-widths and integrated intensity results are 
scattered when the same line is examined after the various 
thermal exposures . This effect may be due to the development 
of a preferred orientation. More accurate data are being 
collected at this time. This is required before any conclu- 
sions can be made at this time. 

Publications and Talks : 

The research on this study resulted in the X-ray data 
listed in Tables 1 through 12, and the following Master's 
Thesis: A Study of Interfacial Reactions in Silicon Carbide 

Reinforced Titanium, George Washington University, 1979. These 
results will be included in future publications . 
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PART 3 - SOLUTIONS FOR DIFFUSION IN SINGLE-, TWO-, 

AND THREE-PHASE BINARY ALLOY SYSTEMS 

OBJECTIVE 

In the analysis of diffusion controlled processes (e„g., the 
diffusion of planar protective coatings into substrate materials, 
the filament-matrix interaction in metal matrix composites, or 
the homogenization of powder .compacts) , the ability to predict 
the degree of interaction between different components, given some 
exposure conditions, is needed. Solutions of the diffusion equation 
have been reported for several different initial and boundary 
conditions. Most of these, however, are restricted to one geometry, 
applicable only for infinite or semi-infinite systems, or require 
that the diffusion coefficient be independent of concentration. 

The objective of this study is to develop general solutions for 
treating diffusion in single-, two-, and three-phase binary alloy 
systems. 


APPROACH 

Finite-difference solutions were developed in this study for 
treating one-dimensional transient diffusion in single-, two-, and 
three-phase binary alloy systems. These solutions are applicable 
for planar, cylindrical, or spherical geometries with any diffusion- 
zone size and any continuous (within each phase) variation of the 
diffusion coefficient with concentration. Special techniques were 
included to account for differences in molal volumes, initiation 
and growth of an intermediate phase (three-phase system, disappear- 
ance of a phase (two-, and three-phase systems-), and the presence of 
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an initial composition profile in the specimen. In each analysis, 
an effort was made to achieve good accuracy while minimizing 
computation time. 


RESULTS AND DISCUSSION 

Diffusion calculations were performed {ref. 3) to establish 
the conditions under which concentration dependence of the dif- 
fusion coefficient was important in single-, two-, and three-phase 
binary alloy systems. Finite-difference solutions for each type 
of system were obtained using diffusion coefficient variations 
typical of those observed in real alloy systems. Solutions were 
also obtained using average diffusion coefficients determined by 
taking a logarithmic average of each diffusion coefficient varia- 
tion considered. The solutions for constant diffusion coefficients 
were used as references in assessing the effects of diffusion 
coefficient variations. Calculations were performed for planar, 
cylindrical, and spherical geometries in order to compare the 
effect of diffusion coefficient variations with the effect of 
interface geometries . 

Diffusion coefficient variations in single-phase systems and 
in the major-alloy phase of two-phase systems were found to effect 
the kinetics of diffusion as strongly as the interfacial geometry 
of the diffusion couple. Concentration dependence of the diffusion 
coefficient in the minor-alloy phase of a two-phase system was 
found to have only an initial transient effect on the diffusion 
kinetics. In three-phase systems, the intermediate phase did not 
increase in thickness if the diffusion coefficient of the inter- 
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mediate phase was smaller than the diffusion coefficient of the 
major-alloy phase. Under these conditions, the three-phase 
diffusion problem could be treated as a two-phase problem. However, 
if the diffusion coefficient of the intermediate phase was larger 
than the diffusion coefficient of the major-alloy phase, the inter- 
mediate phase grew rapidly at the expense of the major and minor 
phases. In most of the cases considered, the diffusion coefficient 
of the major-alloy phase was the key parameter that controlled the 
kinetics of interdiffusion. 

A semiempirical relationship was developed (refs. 4,5) which 
describes the extent of interaction between constituents in single- 
phase binary alloy systems having planar, cylindrical, or spherical 
interfaces. This relationship makes possible a quick estimate of 
the extent of interaction without lengthy numerical calculations. 

It includes two parameters which are functions of mean concentra- 
tion and interface geometry. Experimental data for the coper- 
nickel system are included to demonstrate the usefulness of this 
relationship . 


PUBLICATIONS AND TALKS 

The research on this study resulted in three publications: 
Effect of Concentration Dependence of the Diffusion Coefficient on 
Homogenization Kinetics in Multiphase Binary Alloy Systems, NASA 
TP 1281, 1978; Geometric Relationships for Homogenization in Single- 
Phase Binary Alloy Systems, NASA TP 1349, 1978; and An Empirical 
Relationship for Homogenization in Single-Phase Binary Alloy 
Systems, Met. Trans., Vol. 10A, No. 3, 1979. 
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PART 4 - MOISTURE EFFECTS ON GRAPHITE/POLYIMIDE COMPOSITES 

OBJECTIVE 

Composite materials consisting of graphite fibers in a poly- 
imide resin matrix offer potential for considerable weight savings 
in structural applications requiring high temperature service. The 
space shuttle orbiter vehicle aft body flap is a prime candidate 
for. possible application, where operating temperatures will be too 
high for graphite epoxy consideration and considerable weight 
savings may be possible compared to conventional aluminum structure. 
However, the characterization of graphite polyimide materials with 
respect to mechanical property degradation by environmental effects 
has not yet been adequately accomplished. The objective of this 
study was to do such a characterization. 

APPROACH 


The Materials Research Branch undertook this problem in sup- 
port of NASA's CASTS program. The experimental program included a 
large matrix of both material and environmental variables. 


Material 


HTS2/PMR 15, Celion/PMR 15 


Orientation ( 0 , +4 5 , 9 0 ) 2 ^ ( 0 ) g 

Moisture Condition As processed, vacuum dried, saturated, 

saturated and thermally cycled 

Temperature 117 , 294, 589K (-250, 70, 600°F) 

Property Tension, compression, interlaminar shear, 

rail shear, flexure 


The grant's main contribution to this program was to develop soft- 
ware for a Hewlett-Packard Data Acquisition System to permit extensive 
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mechanical property data collection on the graphite/polyimide 
composites. 


RESULTS AND DISCUSSION 


Software Development: 

Three computer programs were developed for an HP-9845 system to 
facilitate real-time data collection. A listing of these programs 
is given in Appendix A. Program 1 utilizes a digital voltmeter 
for data collection during static tests. Program 2 utilizes a 
fast response system voltmeter' and is used for fatique tests. Two 
amplifiers are used with the system voltmeter to improve accuracy. 
Programs 1 and 2 store the data on magnetic tape cartridge. This 
data can subsequently be read using program 3 which gives stress- 
strain and modulus-strain plots, as required. The programs were 
written to accommodate more than one test machine at the Langley 
Research Center. Either a Tinus-Olsen testing machine or an MTS 
machine could be used with the data acquisition system. All the 
programs are documented to facilitate usage by other researchers. 
Mechanical Properties : 

The general conclusions resulting from the on-going study on 
graphite/polyimide composites are as follows (ref. 6): Moisture 

conditioning produced moderate to severe reduction in compressive 
and interlaminar shear properties at 589 K (600°F) . No reduction 
was observed in tests at room temperature or at 117 K (-250°F) . 

The compressive property appeared to be affected more than the 
interlaminar shear property. Vacuum drying, on the other hand, 
appeared to improve both properties at elevated temperatures and 
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might be considered for final processing if it can be shown that 
increases would not be lost by environmental degradation in service. 
The degradation by moisture conditioning appears to be associated 
with the lowering of the glass transition temperature, and this 
can occur after only a few weeks exposure to condensing humidity 
conditions at 355 K (180°F) . 

PUBLICATIONS' AND TALKS 

The research on this study resulted in the three computer 
programs listed in Appendix A , and the following technical paper : 
Mechanical Property Degradation of Graphite/Polyimide Composites 
after Exposure to Moisture or Shuttle Orbiter Fluids, NASA CP 2079, 
1979. 
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SUMMARY 


Good progress has been made in several areas. Mechanical 
property degradation and chemical interactions were studied in 
titanium matrix composites. The results suggest that an inter- 
facial coating of aluminum considerably reduces the reaction 
between SiC fiber ad titanium matrix. General finite difference 
solutions were developed to treat diffusion in multiphase binary 
alloy systems with planar, cylindrical or spherical interface. 
Software was developed for the Hewlett-Packard data acquision 
system to facilitate real-time stress-strain data collection 
on graphite/polyimide composites. The research on this grant 
resulted in six publications. 
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APPENDIX A 


HP- 9 845 Computer Programs 


Program 1. 


10 ! Program#! : St at i c Test wir h Ti n i us -0 1 sen or MTS machine. 


28 

OPTION BASE 1 




20 

DEG 




48 

DIM CMvjO.Gk 180, 239,0^:333, It 

28 - 1 , N <• 20 j , P ' 20 

1 j r J v o ‘ , R * Z <3 


58 

COM Rut.0:a> 




££ 

INPUT “-1 'or OPT output., Z 

for PAPER out p 

i.r ; Select . " ,.Pr’- 


78 

IF Prt = l THEM PRINTER 13 16 




88 

IF Prt =2 THEM PP INTER IS 8 




98 

Ok 0 = 1 




100 

Ct 14.' =08000 




1 10 

Ruk7'' = l 




120 

P.v k 8 '■ =3 




1 20 

INPUT "Total S or Channel sC 

2. 3 ....... 20 9 7 

" > R-' 1 1-’ 


148 

IF kPokOv2:- OR kR 1 -", 1 ,■ 20 i 

THEN GOTO 1 30 



150 

Rk> ''22 = I NT 1 ' 2O00-'Rvk 1 9 '• 




loO 

REDIM GkR‘.J<2) , Po* i . . 




1 ^*0 

INPUT' "4 of -Strain Gages'. 0, 

1 , . . . 1 S i ' " , C k 1 

Z - i 


180 

INPUT " * of E*t ensometers 1 0 

, 1 , 2 1 ' “ , 0 f 1 1 ; 



1 98 

IF CtlDtCdli'+I- .'Roc 1 j THEN GOTO 170 



Z Q 0 

INPUT "Tvpe- of Test, 3p,#, 

D-a»e, etc. i 50 

cha. ’• •" , Fs 


210 

PRINT LI1K2' 1 




228 

PRINT "Progrrn 1 Output." 




228 

PRINT LlhKlj 




Z ^ ki 

PRINT As 




253 

PRINT LINkO 




Z©0 

FINED 0 




278 

PRINT " " 




288 

PRINT "channels •=" ;Rvkl.- 




Z'r^O 

PRINT* “point sNcha. *“;P"k2 ■ 




388 

G03U3 In i t 




3 1 8 

0 k o > = R { 1 '> 




228 

O'- 71) =Ro < 2 J 




3 28 

R o k 4 ) = I N T ’ <Pu' l^-2^' : 23 




348 

IF Puk49' 1 THEN Po ■' 4 ) = 1 




350 

INPUT "1 for Tinius -01 sen. 

2 for MTS : 3s 

1 ect . " ,C ■ 13 


3 60 

IF Ci 13) =2 THEN INPUT "Hom 

crt-a.ii- 1 1 bs does 

the full scale 1 

10 

to "■ 

k 5K, ISfc, £3K-, 25K.50K, 100k 9" , Ck 

14; 



278 

INPUT "What is. the maximum 

load Ohs; jioti 

expect to use " 

,P 

ciyy 

P 1 - 1 <09 = 10- C < 14 > -Ro < 0 9 




390 

‘IF RMOK 1 THEN Rv < 3 '■ = 2 




488 

IF' Ry'0ik,l THEN R';k39 = l 




4-18 

R 1 - 1 k 8 '> =20 




4 30 

Rk Rok 4 1 -r 1 ) ~P‘.< < 3 j 




4 — 0 

H k Ru < 4 -• + 1 '> =R u < O .) 




450 

P ■' R" f 4 1 + 1 ' = 1. 




4c 0 

FOP 1=1 TO Ren 4 j 





470 Rk 1 '=R>, if ,.7> 

400 fK I ’=Pok a.> + I 

490 Pk I i=I+l 

500 NEXT I 

510 IF Rv 1 '=2 THEM GOTO 578 

520 FOP I =P" 1 4‘i +-£„ TO 19 

5 3 0 p>. I spi if 7"i 

5+0 M* 1 1 spu' 8 :■ t I - 1 

550 F- I; = I 

5E8 HEM I 


ORIGINAL page is 

OF POOR QUALITY 


cor 
8 - 
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570 Ri;<8)=-1 

580 Rw<5)=Rv<7> 

500 INPUT "Channel # to be Sal anced-. 20, 21., 22, . . . . 39 ■ , Pv 8 ? 

518 IF Rut 0>=-l THEN GOTO 570 

620 IF Ro<9;=20 THEN Ri;C5',‘=Rvk3> 

530 OUTPUT 722 USING 1390; IMT-. R<*<3 O 

54a OUTPUT 70S USING " # , K “ ; “ C “ 

850 OUTPUT 70S USING 1330;Rut0) 

658 GOTO 573 

678 INPUT “Specimen Thickness in inches ?" ,C‘'2.' 

680 INPUT "Specimen Width in inches ?",CC3> 

698 INPUT "Strain Gage Factor '' ,1 , C.t4) 

708 IHPUT "Total Test Time <*4 to 30 m i ns 1 ?“ , C'.5> 

718 INPUT "Tape Cartridge #- , Ru>'0j 

720 INPUT "Specify 2-digit file# ’! 10,11,... i le 

730 IF ("Fi 1 e< 10) OR <Fi1eJ99'> THEN GOTO 71 0 
740 Fi 1 e=INT<F'i 1 e '* 

750 FS= t ‘ l FIL£."S;VfiLS< File; 

760 PRINT “Cartridge# =";Rm<0> 

770 PRINT “Data File# =“;Fi1e 

730 PRINT “Str ai n -Gages=" ; Ct 12 .j 

798 PRINT ,l Extensometers = " ; C< 1 1 > 

300 PRINT u " 

310 PRINT LIHC1; 

328 PRINT “To Stop: PR USE , 3f_l_ , ~ EXECUTE , CONTINUE , 11 
S43 S=8 

350 Ru<5)-C t 5>-sr600SO • C f 7 j-C i.6;i el20 

368 IF R u ■; 6 - 1 < U THEN Ru<,6;=0 
37Q. OUTPUT 722;" 73" 

330 INPUT "Press CONTINUE to Collect Data",Ru-0* 

393 BEEP 

900 FOP 1=1 TO Ru< 1 ; 

310 OUTPUT 722 USING 1-390; I NT'*' Rt I ; 'j 
920 OUTPUT 709 USING K" ; “C“ 

930 OUTPUT 709 USING 13S8J NC I ' 

940 TRIGGER 722 

950 ENTER 722 USING 1480 5 I < PC I ; ) 

960 NEXT I 

970 FOR J = 1 TO RV2> 

980 IF S=1 THEN GOTO Stop 

990 FOR 1=1 TO Roil; 

1003 OUTPUT 722 USING 1 390 ; I NT ■. R * I > ) 

1010 OUTPUT 709 USING “#,K";"C" 

1320 OUTPUT 709 USING 13S0|NtI> 

1030 TRIGGER 722 

1040 ENTER 722 USING 1480; G< J , Pt I> ; 

1050 NEXT I 

I860 Wfil-T Ro < Sj 

1078 NEXT J 

1038 Stop: 3EEP 
1090 C‘3>=J-1 

1180 INPUT "Press CONTINUE to Store “,R'.^0; 

1110 Ci9> = URvi'l) > 

1120 IF NOT ' <Cc9>s.. 31153 OP ■ C ■ S’* V . 8 1*25 > ; THEN GOTO 1150 

11-30 FIXED 1 

1140 PRINT' “Bridge Vo 1 t , = " ; C C 9 > -508 
1153 FIXED 0 

1168 PRINT "# of Data Points Collected =■ "jCtS.< 

1170 FOR J=1 TO CC8‘ 

1133 FOR 1 = 1 TO Rwl'-l 
11.93 G>. J, I;=G.C J, I )-I(I i 

120O NEXT' I 

1210 NEXT J 

1223 INPUT' "Insert Cartridge in RECORD mode for* data i t or age , " , R- M .y 1 
1280 Rii.-0>=r i CCSJ’tC ■ S;-70 '-S + 300' 1 256 

1240 CREATE F#,RvtO.> 
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1250 REDIM G<CmS) , C<3^ -■ 

1255 ASSIGN 99 TO FT 

12*9 CHECK READ #9 

12SQ PRINT #9; C<*> , G<* ',AT 
1290 ASSIGN #9 TO ■* 

1303 Rv(3)=-1 

1313 INPUT "More data coi 1 ec t i on< 1 ;jes,0 noj?",Ru , '0' 
1329 IF RuOXl THEN GET "PROGS" 

1339 GOTO 138 

1349 END 

1359 In ft: i 

l 3*0 REMOTE 7 

1 379 RESET 7 

1339 IMAGE #,22, "E" 

1390 IMAGE “R” , ID 

1400 IMAGE F 

1410 OUTPUT 722; "F1T1 " 

1420 RETURN 
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Program 2 


1 0 ! 
20 
30 
40 
50 
60 
7 0 
SO 
SO 
100 
113 
123 
1 30 
l “0 
150 
1 60 
iro 

ISO 
130 
230 
213 
220 
230 
240 
250 
260 
270 
230 
.230 
200 
310 
320 
330 
d * o 
340 
350 
360 
370 
330 
3‘rO 
40O 
410 
420 
4 30 
440 
450 
460 
470 
4S0 
430 
50O 
5-10 
520 
.5 30 

340 

560 

570 


Progr iffiS£: Fat i gue Test with Tinius-Olsen or MTS machine. 

OPTION BASE 1 
DEG 

DIM CC20J ,Gf ICO, 2; . AT [ SO ] , P '• 50V , PT^ 6 >, ST 1 50 3, But' f s r S C 1401 ] 

COM Rm <19 :21V 

INPUT “1 for CRT output, 2 for PAPER output: Se 1 ect . *’ , Prr. 

IF' Pr t = 1 THEN PRINTER 13 16 
IF Prt =2 THEN PRINTER IS 0 
FINED 0 
Cvl >=2 
0=2 

Rv C 2> = 1 30 
Ru'.3>=50 

INPUT "Type of Test, Sp.S, Date, etc. > 50cha. V *•" , AT 
PRINT LIN'*2V 

PRINT " Program 2 Output," 

print m 

PRINT " " 

PRINT “2 channels." 

PRINT "10O point s- chan. " 

PRINT "50 internals. 1 * 

INPUT " Cyc 1 es*'second ?",CU0> 

PRINT "Cycles, second* ";C‘10 j 
INPUT "GAIN for LOAD channel, Rut lO'- 
I NPUT " GA IN for STPA IN c h anne 1 '■ " , Pu ■ 1 1 j 
PRINT "GAIN for LOAD channel = ";Ru> 13,' 

PRINT "GAIN for STRAIN channel RW 1 1 ,• 

PRINT " " 

C< 12) = 1 
C< 1 1 v=0 

INPUT "1 for Tinius-Olsen, 2 for MTS: Se 1 set . “ , C 1 1 2 ■ 

C < 1 4 .» =63000 

IF CC 131=2 THEN INPUT "To how m any lbs does the full s:ale«'10V'- cot 
?<’.5K, 10K , 20K', 25K , 50L , 1Q0K ’ ” , C < 14; 

OUTPUT ?; "U2H, U2=I2" 

IMAGE " P “ , 12 
IMAGE #,22, "E" 

INPUT " SVM Range <1 for '0.1V, 2 for IV, 3 for 10V) ' 11 . Rwi 9) 

REMOTE T 
RESET 7 

OUTPUT 726 USING "#■, K" J " D . 0 IS, NSSSSS, FIT 1 " 

OUTPUT 726 USING 350 ; I NT' RvO '> '> 

C < 6 ; =Rv 1 1 ) 

0t3> =0.?',' =Rut2> 

C ( 3 > = . 0 1 2 
P>' 1>=30 
P<. 2)=60 
Pt 3V = 100 
Pt 4,' =1000 
Pt 5 ) =10000 
FOP 1=6 TO- Rw i. 3 ; 

Pi n = iO900+Pf. 1-1 • 

NEXT I 
Rv,0:=-1 

INPUT "Channel # t. ; . be Balanced 1 0,^> , F . O'- 

IF R.J.' 0 i =- 1 THEN G0~O 600 
OUTPUT 70S USING O; ^ 


ORIGINAL PAGE fs 
OF POOR QUALITY 


re span 



CC2.' 


38 0 
596 
609 
619 
629 
639 

649 

650 
679 

689 

690 
799 
710 

729 
739 

749 

750 
768 
779 

730 
798 
300 
328 
330 
840 
350 
360 
370 
380 
890 
900 
910 
920 
930 
949 
958 
969 
979 
? SO 
990 
1000 
1010 
1020 
1030 
1040 
1050 
I960 
1 079 
1080 
1090 

, 1 100 
1110 
1 120 
1 130 
1140 
1150 
1160 
1 170 
1180 
1 L90 
1 2.9 0 
1 2-i O 
1229 

1239 

1240 
1250 


TRIGGER 726 
GOTO 538 

INPUT "Specimen Th i cknes a in inches 3", 

INPUT "Specimen Width in inches ?",CC3) 

INPUT “Strain Gage Factor ?U ,C<4-) 

INPUT "Tape Cartridge# ?“,Pu.'i9) 

INPUT "Specify 2-0 1 git File# for St-onng Data 1 TO, U,, . . . 89 '> , F i 1 e 

IF C F i I e< 1 0 > OR C F i 1 e > 89 > THEN GOTO 640 

PRINT “To Store: PAUSE , 5=1 , EXECUTE , CONTINUE . " 

PRINT LINU; 

PRINT “To Stop : PAUSE , 8 = 2 , EXECUTE , CONTINUE . 11 
PRINT UNO) 

8=0 

OUTPUT 726; "T3“ 

FIXES 0 

INPUT "Presa CONTINUE to Collect 0ata“,R"'O' 

OUTPUT 9; "IJ2G" 

OUTPUT 9;"U2V" 

ENTER 9 ; V 
V=V-*Ccl8) '1O00 
FOR K= 1 TO P»<3) 

OUTPUT 709; "LO1F0OI 1 “ 

OUTPUT 726 USING 11 # « K " ; "FI, T 1 , D . 00 1 0SN20 0 5 " 

Buff er|s“ " 

BEEP 

ENTER 726 BFHS 1401 ; Buffers 
BEEP 

OUTPUT 726; "T3" 

Ru< 13)=Ry716>=-lE?9 
. Rv k 1 7 >=Rv v. 1 5>= i£99 
BufferfC 1400]=" , " 

J= 1.5 

FOR 1=2 TO R <jk2j ' . 

G< I 1 >=VAL<Buf f erf C J3 ) 

G v 1 , 1 ; = ABS < G <■ 1 , 1 ) P v < 1 0 > ■ 

J = J+7 

Gt 1 , 2>=VftU Buff erf C JIj 
G C 1 , 2 ) = A B S t G «. 1 , 2 .■ s P 1 > 1 1 .> .< 

J= J+7 

IF Rv''18AG<I ( 2.> THEN Pv 13>=G<- 1,2.' 

IF Ruv 16) iCt 1 , 1 > THEN P." 7 i 6 ) =G ■' I , i> 

IF Rv(17;>G< 1 , 2; THEN Rv7 17)=G< 1 , 2 ■> 

IF Rv71S)>G<I, 1) THEN Rv •' 1 5) =G <■ 1 , 1 > 

NEXT I 

g<i, n-G< 2 , n 

GC 1 , 2) =G < 2 , 2) 

Rv721)=RvU3'5-Rv( 17) 

Rv ( 20 ) =Rv < 1 6 ) -Rv ' 15) 

Rvt20)=Ru<20^ "10*C 1 14) 

P v 20 ) =Ru ^ 20 ) ^ t C 7 2 * *0 7 3 ; > -• 1 000 
R v 7 21 J=4fRui 21 > ■ (.Ci 4 ) -eSOO-s'C*' 9) ) 

Ru C 20 ) =flBS < R-m 20 ^ --'Rv 7 21)'- 
PRINT “Cue 1 e# =";lHT7Vi . 

PRINT "Modul ue=" : Rv > 20; J "1 i i . “ 

IF S=2 THEN GOTO Stop 
IF 5=1 THEN GGSUB Store 
OUTPUT 9;''U2V" 

ENTER 9;V 

V=V*Cf 10)' 1000 

IF' V< P -K > THEN GOTO 1.1.40 

NEXT K 

Stop: GET “PROGS'" . 

END 

5 tore: INPUT "Insert Carings in RECORD mode fc»- da* a e t : r age . " . P'" 0 ’ 
Fi le=INT7Fi lei 
Ff="FILE" vVALf 7Fi 1 e *■ 
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1260 2$="Cartridge ,, ?:VflLf «.Ry«I19jW; “S,F* 

1270 CREATE Fi, 10 

12*?0 ASSIGN #9 TO F$ 

12SS CHECK READ #9 

1390 PRINT #9;C<*>,G<*>,A$ 

131Q ASSIGN #S TO 4 

1320 PRINT " 

1330 PRINT 25 

1343 PRINT' " 11 

1350 Fi 1 «=Fi 1 e+1 

1360 S-0 

1373 RETURN 


51 



Program 3 


19 ! Pr ogram#3: P«tne"ing Plotting Bat-a. Ma'J 11,1979, 

29 OPTION BASE 1 
39 DEG 

49 DIM C<20',FT< 6.' 

50 COM Rv<l9: l?> 

SO INPUT' "1 for CRT' plot, 2 for 9872 plot; S*1 ect . ",Cr t. ' 

TO INPUT ■' 1- for CRT output, 2 for PRPEP output: Sslscr .",Pn 

80 IF Crt = 1 THEN PLOTTER IS 1 3, "GRAPHICS” 

99 IF Crt = 1 THEN GRAPHICS 

190 Sa.uep=0 

110 IF' Crt =1 THEN GOTO 140 
1 20 OUTPUT 705 ; " I P 0,0,1 0500 , 5300 " 

t 30 PLOTTEP IS 7,5, “9S72A" 

140 IF Pr t =2 THEN PRINTER IS 0 

150 IF Prt = 1 THEN PRINTER IS IS 

160 INPUT "Tape Cartridge # " , Pu'O:- 

170 FIXED 0 

188 Pread: INPUT "Specify 2-digit file# (10,11,..., 99.' " , F i 1 e 
190 IF (File<.10> OP <File''99« THEN GOTO Pr- ad 
200 File* I NT t F i 1 e ) 

210 FT=" F 1 LE " & VHLT( F 1,1 a ■> 

220 ASSIGN 49 TO FT 
230 READ SSjCt-O 

240 D I M G ( 40 , 60 ; , X* 0 : 39 > , V < 0 : 39 1 , F 1 0 ; 39 1 , W ? 1 9: 39 1 , Uij ■. 0 : 39 1 
250 DIM ATC50 ] , XTC 303 , YTC30 3 , ZT C 50 3 

269 Ru< 1 )~C < 6 5 

270 Rv< 2)=C( 3 J 

2S0 REDIM G(Rv<2;,0:RvU;-n 
29o FIXED 0 

300 PRINT L I H < 29 

910 Rv < 0 ) = I NT t R v t, 3 > 

320 2T="Cartri dge"LVALTf Ru.'0,. ; "<i.FT 

330 PRINT "Program, 3 Output: " , 2T 

3-i0 PRINT "# of channel = = ";Ru' 1>; poi n*s -cha. P---'2 > 

350 PRINT L I H < 1 3 

260 Rv<v3i=0 

370 Ru i 33;=0 

.380 Ru(34'=9 

390 Read: ASSIGN 49 TO FT 

408 XT="STRAIN, iivin" 

419 READ #9; C<*’> , G.>.e t , Ai 

420 FIXED 5 

430 C<9>=c*;s -4500 

440 IF RvCSS J =4 THEN GOTO Plot 2 

450 YT=“ STRESS, R = 1 " 

460 IF Pu(3)=t THEN GOTO 790 

470 pu<20>=® 

480 INPUT "la Data to be Printed -11 *<ea, 0 no.' 7" ,P'"20 j 

430 IF Rut 20' =0 THEN GOTO 590 

5O0 FOP- .T=l TO CcS; 

510 FIXED 0 • 

520‘ PRINT' J; 

5 30 FOP 1=0 TO R'j* 1 >-l 

540 FIXED 5 

550 • PRINT G- J, I > \ 
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560 NEXT I 

570 PRINT' LIH<0) 

530 NEXT J 

530 IF R\><3)*1 THEN GOTO 730 

600 Ry<3)=l 

SIS FINED 0 

620 PRINT " " 

630 PRINT “ Load Channel = 3" 

548 F<0)=1 

550 IF C<12>-0 THEN GOTO 70S 

560 FOR 1 = 1 TO Cl 12) 

670 PRINT "Strain Gage = ";l 

630 Pfl;=2 

530 NEXT I 

700 K=3 

710 IF C < 1 1 j =0 THEN GOTO 773 

720 FOR I=C(6)-C(llj-l TO C<6'--2- 

730 PPINT “Extensometsr = •';! 

7*40 F<I)=K 

750 K=K+1 

750 NEXT I 

770 IF >CU O+Ci 12 >-l THEN PRINT "Bridge Volt. 

730 PRINT " " 

798 FIXED 2 

S00 PRINT LI1K1; 

318 PRINT “ 

320 PRINT LIN-,1) 

830 PRINT 11 Channel # Ht . Fr, " 

840 PRINT LIN 1 ' 1 1 

350 FOR 1=0 TO Ry<l.‘-2 

360 Y<ri >=-1 

878 INPUT "Chan,# % Height inq Factor for Y-axis 11 , 
380 IF Ytl)=-1 THEN GOTO 943* 

390 INPUT "Wy< I ) ?“,Wyi.I;' 

900 PRINT "Y-axis: " ; Nyc I J 

910 R‘(<4>-I + l 

92S NEXT I 

938 PRINT LIN<1; 

940 FOR 1=0 TO Rvfl)-2 

950 X<I>=-1 

960 INPUT "Chan.# 'U Weighting Factor for V. - a,* i i “ , 
970 IF Xfl>=-1 THEN GOTO 1030 

930 INPUT "MxCI] ?",WviI( 

990 PRINT "X-axis: Nlid);' 1 " ; Wv f I *■ 

1000 Ry<S)=I+l 
1018 NEXT I 
1320 PRI.NT L I M < 1 ) 

1O30 INPUT “Are axes to be pi ot ted- 8, 07“ , R“< 23 ■ 
1040 INPUT "pen #- to useCl , 4 *> , Ry < 1 1 > 

1059 PEN Rv< l-l ) 

1060 Plot 2J FOR J=1 TO C<%> 

1070 Ry <351=0 
1030 FOR 1=0 TO Ru < 4 ) - 1 
1 390 Ryf3>=G-' J, Yt n 1 

1130 Ry <21 ) =F f Y< I ■> i 
1110 GOSUB Function 
1120 Rv 35 .J =Pv v 35) fRy < 8 .■ -Wy <. 1 1 
1130 NEXT I 

1140 Ryt8>=G< J, Yt0 1 )=Rv 35) Ry<4> 

1156- Ry<'35)=0 

1.160' FOR 1=0 TO R" i 63-1 
1178 * Ry < 3 ) =G/ J ,.X < I ) > 

1130 ' Ry <21 ) =F". X 1 ' I ) > 

1190 GOSUB Function 
12O0 Ry 35 *' =Pv 85.' 1 fP 1 " 3 .' +W i, I 1 
1210 NEXT I 


X- I ■ 
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1220 Rv< 8 )»G< ;,;«0))sRv *35) 

1230 NEXT J 

1240 IF Rv<33.J=4 THEM GOTO Modulus 
1258 IF Pv < 23 > < 1 THEM GOTO Plot 

1260 mot l: IF Crt -2 THEM INPUT "Place 3.5-11 paper <hori rant, al 1 ;* • Touching 1 o*.i sr 
— left— corner of p 1 ot t er “ , P « <0 * 

1270 FIXED 5 

1230 GOSUB MMin 

1230 PRINT "Xfnin-" JRvClS) 

13S0 PRINT "Xmax=" ;Rw< 12) 

1310 PRINT "ymi n=“ ;Rv< 15) 

1323 PRINT "Ymaxa" ;P wi14j 

1330 INPUT "Xniin’" ,Pm<’25'' 

1340 INPUT "Xmax? “ , Ru'' 24) 

1350 INPUT "Ymi n?" , Rv*. 27) 

1360 INPUT "Ymax?",P.v<26> 

1370 INPUT “X-tic Internal ?",P’** 3'* 

1330 INPUT 11 # of tics per X-umt 1 abel ?“ , Rut 13 ■ 

1390 INPUT "X-axis label*. 38 Char act *rs /*“ . \iS 

14 O 0 INPUT "Y-tic Internal % R 1 "' 19 
1410 INPUT "# of tics per Y-uni» 1 abel , P***. I ’?' 1 

1423 INPUT "Y-axis label t 30 Char ac» *r s ' . V* 

1430 <?*■" 16 IsfRy 1 24)-R*..'* 25j )-' 6 . 5-’10 

1448 Rv< 17>=s*'Pv , .26)-Rut27> ) ' 6 . 5 ' 19 

M-50 IF Crt = 2 THEN INPUT "P1,P2: 1 you set, Q program selects., 2 old values re 
t ai ned. " , Saoep 

1453 IF S avep=0 THEN LOCATE 15,115,15,35 
1478 IF Saueps M THEN GOTO 1500 

1430 D ISP " Set Pi, Press ENTER on plotter. Set P2, Press ENTER." 

1490 LOCATE 
1495 DI3P "" 

1580 SCALE R-m' 251-, Ru*' 24 ■,Pu-,27:<,Ru*- 26> 

1510 AXES Rur.9),Ru. 10 ■ , Ro < 25) , Ru *'27 ) , R**t 13 * , P>-* ■ 19;, 4 

1529 S avep=2 

1530 C3IZE 3 , 1 r l , 5 

1548 LORG 5 

1553 LDIR 0 

1560 FIXED 3 

1570 Xtics-INTC* Ru'24'*-Ru<25>VRg<?.' + . 1 > 

1530 Yt i cs=IMT*.' <Ru* 26>“Ry*:27) > RvCitP + .l* 

1590 FOR I=0 TO Xtics STEP Ro* 13) 

16O0 Xval »Ro<25)+I -Ru<9) 

1610 MOVE Xval , Rv<27)-Ruc 17)*3 
1620 LABEL USING " k " } Xu al 
1630 NEXT I 

1540 MOVE * Pv".24>-Pv<25 0-'2j R * 1 *‘27 ) -7=R* J * 17'* 

1653 LAEEL USING "K" ;X$ 

1660 FIXED 0 

1670 LORG 8 

1630 FOR 1=0 TO Ytics STEP Rv<19> 

1690 Yt al =R*j *, 27 5 + 1 *-Ps>*' 1 O ) 

170S MOVE Pt*< 25)-Rv* 16 J , 'i‘y al 
1710 LABEL USING "H " ; V** a] 

1729 NEXT I 

1730 LORG 5 

1740 LDIF 90 

1750 MOVE Rm025)-9*Pv i 1 6 * , CP* *■ 25)— P " 1 27'* ) • 2 
1760 LABEL USING " K “ ; Y f 

1770 PLOT Ro* 25 > , Ru <26 '* , -2 
1730 PLOT Rv*24'*,Rv*'26'*,-l 

1790 PLOT P"* 24) , Rv*:£7 * , -1 

130O PLOT P" '25) , Rv<26 > , -2 
1 8 l O LDIR 0 

1S20 MOVE * p* * * 24 1 '* -P*/ *'25 1 ^ '2 5 6 -P• ,, l^ , ■ i •P l "26• 

1830 LABEL USING "k" ; AS 

1S40 MOVE < F:> 24 )-?•■* 25 ■ ■ 2 . 3-Pu * 1 7 ■ -P 1 • ■ 26 
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1350 
I860 
1370 
1380 
1390 
1903 
1910 
1920 
1930 
1 940 
1950 
1 950 
1970 
1980 
1990 
2O00 
2010 
2020 
2030 
2040 
2050 
r ~ns 
2O80 
2070 
2330 
2090 


LABEL USING 11 K" J Z$ 

Plot: PLOT G<' 1 , X'!0> > , GV 1 , 0>> , -2 

FOR J=1 TO O' S'* 

Rv(0 1 

IF ( !G<J,Y<0?H1E-9j OR <GC.J, XC 0> V IE-9 > THEN Rv<.0)=-2 
PLOT G < J , X f . 0 > , G e r J , 7 k 0 ? ) , R v{ 0 1 
NEXT J 

IF Crt=l THEN DUMP GRAPHICS 
IF' Crt = 1 THEN GCLEfiP 
PEN 0 

IF Rve34;>=l THEN GOTO Reid 
IF R"e. 3 3?' = 0 THEN GOTO 2040 

IF NOT 33^=1? OP (Pvt 33:>=2.'« OR OR-m 33^-4 * '■ THEN GOTO 2000 

Rv C 33 j =8 
GOTO Read 

IF NOT '■'Roe; 331 = 3; THEN GOTO 20*0 
Rv ( 3 1 ; =2: 

Re) <33; =4. 

GOTO Reid 

IF Y<0>=0 THEN INPUT " Modu 1 us e 9No , 1 T an , 23ec « 31 an&Se c 1 , R> " 33 ■* 

IF Y<0*</0 THEN INPUT "Poisson's RatioOONo, l Yes-! ong . s * r ai n on 
strain on X) ? “ , P. 1 ", 34 ;■ 

IF eR'M33)<=0> AND ■ P."* 34>' =0.' THEN GOTO Read 
Rv<r 31 )=Rv'.33'> 

IF Rvi'33 '■ =3 THEN Pve31>=l 
Modu 1 us : R 1 37 i = . 0002 


2100 Rv'36 )=2 

2110 FOP J=i TO C e 3 - 1 

2120 IF vRvf 37''<.=Ge J+l , X- S') > ' AND c ?>, < :37 s ) - =G<. J, X- 0 ‘ '■ 5 THEN GOTO 2140 
2130 NEXT J 


2140 
2150 
2180 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
22-t0 
2250 
2280 
2270 
2230 
2290 
23O0 
2 310 
2320 
2330 
2340 
2350 
2360 
2370 
2 330 
2390 
24O0 
2*10 
2.420 
2.430 
2440 
2450 
2460 
2-170 
2430 
2 a 90 


Rye 37 W 

IF CU>=2 THEN Rvv 37.) = ! 

PRINT " " 

IF Rve3-i>/=l THEN GOTO Poisson 
IF HOI <.Rvv31,'=2; THEN GOTO 2220 
PRINT "Secant Modulus." 

Yf- 11 SECANT MODULUS, ksi" 

GOTO 2329 

PRINT "Tangent Modulus." 

Y5 =, ‘ TANGENT MODULUS, ksi" 

FOR J=Pv< 36 ?■■*•?" (37) TO C'C3>-Rve 36'.' 

R V 1 29 )=G< J+RvC 36 ■ , Y e 0 > "> -G < J-RvOG; , Yu3 j ) 

Rv. 30>=G*. J + RvC-36') , X*.0,i)-G\. J-R')'.3o') , Xc O' 1 1 
P v < 3 ) =G •' J-Pv<36)-Rv<37) + l,Xc0 j ;=G‘ J , X< 0; ' 

Rv 1 ' 3 3 =G C J - R v l . 36 > -R v < 3?3 + 1 , Y i 0 "j ,> sRv < 29 '> * P.v’ 38 > 
NEXT J 

CC3U=C<-. 3 3 -2*Rve 36,)-Rv <37'> + 1 
GOTO 2418 

Rv t 22 > =Ge' P'viST > , Xi, O > > 

Rv 0 23 =G < Rv t -37 ) , Y< 0> ) 

FOR J=R')< 37^ + 1 TO Ce3J 
R v e. 29 } =G ( J , Y < 0 j '> ~P.< 23 ) 


Rv<30>=G< J,X- 0)l-R"<22v 

Rv e 3 > =G el J-Rv ^ 37 > , X ( 0 = A B3 G < J . X - 0 ■ ’■ ;■ 

Rv < 3 .) =G < J-Rv< 37 > , V'Q > >*ABS'.R"':29 )/Rw. SO.' 1 ,• 
NEXT J 

C , '8)=C , vS >-Rvi 3?) 

INPUT "Are a % es to be p-1 ot r.ed'0-1 j?" , P"e 23 
INPUT "pen# to use f l-4v , R"i 1 1 > 

PEN R'.> <11,' 

PRINT'." " 

IF Rv.23 ■- 1 THEN GOTO Plot- 
GOTO Plotl 

END .. . rr 

FuncT l on: IF P'"2l)=y i HEN PETUFrl 3* 

IF P'-" 21 ) = 1 THEN P. ", i: > =£'■ 3 j 1 0*C ( 1 4- ■ 




£500 
2510 
2520 
2530 
2548 
“2550 
2588 
2570 
2538 
2598 
2 SO 0 
2610 
2620 
26 38 
2S40 
2650 
2S60 
2678 
, Rv f , 
2630 
2690 


IF Ro',21 ; = 1 THEN P.'M3 1 =ABS * Ru*:3>, • C*'2 >-C*i 3.' ' .* " 1 088 
IF Pv( 21 J =2 THEN Rot 3 *=flBS*;44Rv>.8> '<C<4:*^Ct ? 1 * / 

IF R'-". 21 ; = 3 THEN Po<3,'=flBS*. *.-1 . 35293449 3E-5+1 . 352994493 
IF P.ot.2i.'=4 THEN Rot8>=ABS< <.-1 . 0383 1 3823E-4+1 . 336366577 
RETURN 

M a;<m in: Rw >1 14 ) =*Pv <1 1 2 > — — 1 E93 

Rv< 1 5 > t 13 ) = 1 E99 

FOR 1=1 TO C<3> 

IF Gn,^>.0j^Rua33 
IF Ga J X<'8^:R*j«'12> 

IF G< I , Yi'9'- )s Pui' 15 . 

‘ IF G<I,Y(3)) >Ryc 14'i 
IF G Cl . Y i 0 > i ✓«Rv ',14 
NEXT I 

IF >,Cd.-' = l> AND CRoOS^OP 
RETURN 

Poiison: PRINT "Poisson' s Ratio." 


E 1 ~ P 1 ", 3 
El^Ro >, 3 J 


'■ 1.917'* 
’> .'1.015'* 


THEN 

THEN 

THEN 

THEN 


PuU3?=Gt I , H-'O;' 1 
Pot 12?*=G f I , :*■: < 3 i J 
p"( 15 *=Gf I , Y<9 *> 
Rm-^14 -=G<I , V* 0>> 


THEM ?<>' 32 J “ I 

THEN C*. 3^ = P'a 32! 


INPUT 


=o<is*l long. strain, 


trans. st r ai n, 


aoe r age of 1 ong . L t r ans 


Y--S=" POISSON'S RATIO" 
FOR J=Ro<37) TO C 3 ) 


27S0 I=J-Ro<S?j-rl 
2710 Ro«.22:*=G< J » N «■ 0 ■> 

2728 Ro ' 23 ) =G 1 J , Y < 8 3 ) 

2730 IF Ro* 343=2 THEN fto ■ 223 =Rv *.233 

£740 IF R';04,'s2 THEN Ru' - 233=G*' J, X< 0 • • 

2750 Ga,Y(.0i)=R*j' 23'- 

2768 G< I , X<8) )=Rv<22'* 

2770 IF Ru<.363=2 THEN G* I , X<0 0*Pv>'23> 

2730 IF P*a 36^=3 THEN G< I , X < 0 O » < R> "122 > +P" * 23 '■ / 2 

2730 NEXT J 

2308 C <. 8 1 = I 

2318 X$=" LONGITUDINAL STRAIN, in^iri." 

2328 IF Ro*.36:'=2 THEN ;u="TPHHSVERSE STRAIN, in. in, " 

2330 IF Rot 36 > =3 THEN X^' 1 AVERAGE STRAIN*. 1 ong . u.ran- . 1 , uVin. 

2S40 GOTO 2418 
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